#1 导入Execl
dir <- choose.files()
data <- read.csv(dir, header = TRUE)

#2 修改数据
#2.1 Na值替换
data[is.na(data)] <- 0

#2.1 选取活跃大于0的渠道
newdata <- subset(data, 活跃用户 > 0)

#3 补充数据
#3.1 解析文件名



dir = paste(choose.files(),a,sep="") 
dir

#3 读入历史数据
olddata <- read.csv("GameData.csv", header = TRUE)